home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0971.dms / q0971.adf / Install < prev    next >
Text File  |  1997-04-10  |  4KB  |  158 lines
  1. ;
  2. ; Blanker Installation Script $VER:Blanker 2.0 (5.6.93)
  3. ;
  4.  
  5. (set default-dir_modules "Work:")
  6. (set installBlanker 1)
  7. (set installReqTools 1)
  8.  
  9. ;(delete
  10. ;    "ENVARC:Blanker.prefs"
  11. ;    force
  12. ;)
  13.  
  14. ; Copy le main de superdark
  15. (set @default-dest "Sys:Wbstartup")
  16. (if (> @user-level 1)
  17.     (set @default-dest
  18.         (askdir
  19.             (prompt "Where would you like SuperDark (main prog) installed?")
  20.             (help "The WBStartup directory on your boot disk is likely the best place to put blanker. "
  21.                   "This will insure that Blanker is run automatically when you boot your computer."
  22.             )
  23.             (default @default-dest)
  24.         )
  25.     )
  26. )
  27.  
  28. (working "Checking for previously installed version of SuperDark.")
  29. (set @dark-dir @default-dest)
  30.  
  31. (if (<= (getversion (tackon (pathonly @icon) "SuperDark")) (getversion (tackon @default-dest "SuperDark")))
  32.     (if     (askbool
  33.             (prompt "An equal or newer version of SuperDark already installed. "
  34.                 "Install anyway?"
  35.             )
  36.             (default 0)
  37.             (help "An equal or newer version of SuperDark is already installed. "
  38.                   "If you would like to install SuperDark anyhow, click 'Yes'. "
  39.                   "If you don't want to install SuperDark, click 'No'."
  40.             )
  41.         )
  42.         (set installBlanker 1)
  43.         (set installBlanker 0)
  44.     )
  45. )
  46.  
  47.  
  48. (if (= 1 installBlanker )
  49.     (copyfiles
  50.         (prompt ("Copying SuperDark to %s" @default-dest))
  51.         (help @copyfiles-help)
  52.         (source (pathonly @icon))
  53.         (dest @default-dest)
  54.         (choices "SuperDark" "SuperDark.info")
  55.         (infos)
  56.     )
  57.     (if (< @user-level 1)
  58.         (set temp @user-level)
  59.         (user 2)
  60.         (message "Not installing SuperDark because an equal or newer version is already installed.")
  61.         (user temp)
  62.     )
  63. )
  64.  
  65. (set installBlanker 1)
  66.  
  67. (set @default-dest default-dir_modules)
  68.  
  69. (if     (askbool
  70.         (prompt "Do you want to install modules?"
  71.             "I suggest you to do this!"
  72.         )
  73.         (default 1)
  74.         (help "The modules are the heart of superdark! Heach module "
  75.               " correspond to a blanking effect"
  76.               " But if you do want to install them, click 'No'"
  77.         )
  78.     )
  79.     (set installBlanker 1)
  80.     (set installBlanker 0)
  81. )
  82.  
  83. (if (= 1 installBlanker )
  84.      (
  85.     
  86.     (if (> @user-level 0)
  87.         (set @default-dest
  88.             (askdir
  89.                 (prompt "Where would you like Blankers installed?")
  90.                 (default @default-dest)
  91.                 (help "You put them anywhere in your environment"
  92.                 )
  93.             )
  94.         )
  95.     )
  96.     )
  97. )
  98. (if (= 1 installBlanker )
  99.    (
  100.     (makedir (tackon @default-dest "blankers"))
  101.     (
  102.     copyfiles
  103.         (prompt ("Copying SuperDark Modules to %s" @default-dest))
  104.         (help @copyfiles-help)
  105.         (source (pathonly "blankers/"))
  106.         (dest  (tackon @default-dest "blankers"))
  107.         (pattern "#?.dark" )
  108.         (infos)
  109.     )
  110.    )
  111. )
  112. (run (cat "echo " @default-dest "/blankers >env:DARK_DIRECTORY" ))
  113. (working "Checking for previously installed version of ReqTools.")
  114.  
  115. (if (<= (getversion (tackon (pathonly @icon) "libs/reqtools.library")) (getversion "LIBS:reqtools.library"))
  116.     (if     (askbool
  117.             (prompt "An equal or newer version of ReqTools already installed. "
  118.                 "Install anyway?"
  119.             )
  120.             (default 0)
  121.             (help "An equal or newer version of ReqTools is already installed. "
  122.                   "If you would like to install ReqTools anyhow, click 'Yes'. "
  123.                   "If you don't want to install ReqTools, click 'No'."
  124.             )
  125.         )
  126.         (set installReqTools 1)
  127.         (set installReqTools 0)
  128.     )
  129. )
  130.  
  131. (if (= 1 installReqTools)
  132.     (copyfiles
  133.         (prompt "Copying ReqTools library to LIBS:")
  134.         (source (tackon (pathonly @icon) "reqtools.library"))
  135.         (dest "LIBS:")
  136.     )
  137.     (if (< @user-level 1)
  138.         (set temp @user-level)
  139.         (user 2)
  140.         (message "Not installing reqtools.library because an equal or newer version is already installed.")
  141.         (user temp)
  142.     )
  143. )
  144.  
  145. (message "Now I'll start superdark"
  146.         "If it's the first time that superdark is running,"
  147.     "configuration will be created. If no, you'll"
  148.     "have to update configuration!"
  149. )
  150.  
  151. (if (= 1 installBlanker )
  152.     (set start_dark (cat "run \""(tackon @dark-dir "SuperDark -w \"")))
  153. )
  154. (message start_dark)
  155. (run start_dark)
  156. (set start_dark (cat "run \""(tackon @dark-dir "SuperDark\"")))
  157. (run start_dark)
  158.